home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
comm
/
te2_130t.zip
/
TE2INST.003
/
FileCnt.scr
< prev
next >
Wrap
Text File
|
1994-03-28
|
822b
|
22 lines
/* FileCnt.scr -- TE/2 REXX syntax script */
/* Copyright 1994 by Oberon Software */
/* All rights reserved */
/* */
/* NOTE: This script requires TE/2 1.30 or later */
/* */
/* Usage: From another TE/2 script, either syntax, */
/* execute RUN("FileCnt", args) and then */
/* check RexxRC for the result which will be */
/* the number of files found. */
parse arg spec
if length(spec) = 0 then
do
say 'usage: FileCnt filespec'
exit 0
end
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call SysFileTree spec, 'sftReturn', 'F'
exit sftReturn.0